2140 PRINT "PRESS <RETURN> AND TRY AGAIN: ";: GET A$: HTAB 1: VTAB 19: CALL -958: RETURN
2150 :
2160 REM ERASE CURRENT DOCUMENT?
2170 :
2180 HOME :ESCF = 0: VTAB 8: PRINT "YOU ARE ABOUT TO ERASE": PRINT "THE CURRENT DOCUMENT."
2190 VTAB 12: PRINT "ARE YOU SURE YOU": PRINT "WANT TO DO THIS? (Y/N) ";
2200 GET A$
2210 IF A$ = "N" OR A$ = "n" THEN ESCF = 1: RETURN
2220 IF A$ = "Y" OR A$ = "y" THEN RETURN
2230 GOTO 2200
2240 HTAB 1: VTAB 24: PRINT "PRESS <RETURN> TO CONTINUE: ";: GET A$: RETURN
2250 :
2260 REM DATA FOR MAIN MENU
2270 :
2280 DATA 8,MAIN MENU,START NEW DOCUMENT,LOAD DOCUMENT,SAVE CURRENT DOCUMENT,RENAME CURRENT DOCUMENT,CONTINUE WITH CURRENT DOCUMENT,CHANGE PREFIX/SLOT/DRIVE,HELP SCREEN,QUIT